home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2000 February / PCW_2_2000.ISO / software / sw / notfall / xsetup.exe / _SETUP.2 / Group3 / XQ Gku 3.xpl < prev    next >
Encoding:
XSetup plugin  |  1999-10-15  |  1.5 KB  |  69 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Internet\Instant Messaging\Gku"
  5. "NAME"="General Settings"
  6. "VERSION"="2.06"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display Gku above all other windows"
  9. "TEXT 2"="Animate window if minimizing it"
  10. "DESCRIPTION 1"="Some options for the appearance of Gku."
  11. "DESCRIPTION 2"="Gku may be obtained at http://lockergnome.virtualave.net"
  12. "AUTHOR"="Xteq Systems"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  15. "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
  16. "COMMENT 3"="Thanks also to Vex, the maker of Gku."
  17.  
  18. sFile=""
  19. sSec="GUI"
  20.  
  21. sV1="AlwaysOnTop"
  22. sV2="AnimatedMin"
  23.  
  24. Sub GetGKUFile
  25.    s=iniReadValue("WIN.INI","GKU","InstallDir")
  26.    sFile=s & "\gku.ini"
  27. End Sub
  28.  
  29. Sub Plugin_Initialize 
  30.  Call GetGkuFile
  31.  If FileExists(sFile) then
  32.  
  33.     i=IniReadValue(sFile,sSec,sV1)
  34.     if i="True" then SetUiElement 1,true
  35.  
  36.     i=IniReadValue(sFile,sSec,sV2)
  37.     if i="True" then SetUiElement 2,true
  38.  
  39.  else
  40.     Call Disable()
  41.  End if
  42.  
  43. End Sub
  44.  
  45.  
  46. Sub Plugin_CheckData(ElementIndex)
  47. End Sub
  48.  
  49.  
  50.  
  51. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  52.  s="False"
  53.  b=GetUIElement(1)
  54.  if b=true then s="True"
  55.  Call iniWriteValue(sFile,sSec,sV1,s)
  56.  
  57.  s="False"
  58.  b=GetUIElement(2)
  59.  if b=true then s="True"
  60.  Call iniWriteValue(sFile,sSec,sV2,s)
  61. End Sub
  62.  
  63.  
  64. Sub Plugin_Terminate 
  65. End Sub
  66.  
  67.  
  68.  
  69.